home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / langs / iconv8_l.arc / IDOL.ARC / BI_TEST.IOL < prev    next >
Encoding:
Text File  |  1990-03-19  |  582 b   |  26 lines
  1. #
  2. # Tests for the various builtins
  3. #
  4. procedure main()
  5.  
  6.   x := Table(1)
  7.   write("\nTesting class ",x$class())
  8.   x$setElement("world","hello")
  9.   write(x$getElement("world"))
  10.   write(x$getElement("hello"))
  11.  
  12.   x := Deque()
  13.   write("\nTesting class ",x$class())
  14.   x$push("hello")
  15.   x$push("world")
  16.   write("My deque is size ",$*x)
  17.   every write("give me a ",$!x)
  18.   write("A random element is ",$?x)
  19.   write("getting ",x$get()," popping ",x$pop())
  20.  
  21.   x := List(["Tucson", "Pima", 85721])
  22.   write("\nTesting class ",x$class())
  23.   every write("give me a ",$!x)
  24.  
  25. end
  26.